home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
gui140.zip
/
GUIDEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1997-06-28
|
2KB
|
59 lines
'GUI Library Demo Program
'For GUI Library v. 1.40
'Copyright (c) 1997 by Tika Carr
'May 5, 1997
'$INCLUDE: 'gui.bi'
clrscrn 8 'Grey screen
mouse "init"
'** Title Bar
'TitleBar "text", barcolor, textcolor
TitleBar "GUI Library Demo", 12, 15
'** Information Screen
drwbtn 4, 9, 4, 7, 0, 25, 639, 479 'Fill rest of screen
'Each line of text is 16 pixels from the previous line of text
gprint "This is a demonstration of what my GUI library can do.", 10, 32, 14
gprint "Click on various things to see what happens!", 10, 48, 14
mouse "show"
'** Underlying Text to show screen preservation
gprint "Watch This Space!", 200, 200, 10
'** Define a couple of buttons
AB$ = button$(3, 3, "About", 3, 14, 15, 1, 1) 'About button
EB$ = button$(64, 3, "Exit", 8, 10, 15, 2, 1) 'Exit button
'** Main loop (do mouse, etc.)
DO
mouse "get"
IF mb = 1 THEN
about = pushbtn%(AB$) 'About button pushed?
IF about = 1 THEN
about = 0
REDIM a$(1 TO 8)
a$(1) = " GUI Library"
a$(2) = "Copyright 1996 by Tika Carr."
a$(4) = " Contributing Programmers:"
a$(5) = "Douglas Lusher: gprint routine"
a$(7) = "Many thanks to the folks"
a$(8) = "in the QUIK_BAS FidoNet Echo."
PopUpBox 170, 150, 15, 13, 1, a$()
END IF
ex = pushbtn%(EB$) 'Exit button pushed?
IF ex = 1 THEN
ex = 0
'PopInp$ prompt,input limit,x,y,BoxColor,TextColor,FieldColor,FieldTextColor,
' CursorColor
p$ = "Do you want to quit? (y/n)"
a$ = PopInp$(p$, 1, 200, 200, 1, 11, 15, 1, 9)
IF LCASE$(a$) = "y" THEN EXIT DO
END IF
END IF
LOOP
SCREEN 0, 0, 0, 0: COLOR 7, 0: CLS : END